home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / ctl3dpas.zip / CTL3D.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-01  |  2KB  |  62 lines

  1. (**************************************************)
  2. (*                                                *)
  3. (*   Unit CTL3D                                   *)
  4. (*                                                *)
  5. (*   for use with CTL3D.DLL from Microsoft        *)
  6. (*                                                *)
  7. (*   Supplied by Andreas Furrer                   *)
  8. (*                                                *)
  9. (**************************************************)
  10.  
  11. unit Ctl3D;
  12.  
  13. interface
  14.  
  15. uses WinTypes;
  16.  
  17. const Ctl3d_Buttons      = $0001;
  18.       Ctl3d_Listboxes    = $0002;
  19.       Ctl3d_Edits        = $0004;
  20.       Ctl3d_Combos       = $0008;
  21.       Ctl3d_StaticTexts  = $0010;
  22.       Ctl3d_StaticFrames = $0020;
  23.       Ctl3d_All          = $ffff;
  24.  
  25. const wm_DlgBorder       = wm_User+3567;
  26.       Ctl3d_NoBorder     = 0;
  27.       Ctl3d_Border       = 1;
  28.  
  29.       wm_DlgSubclass     = wm_User+3568;
  30.       Ctl3d_NoSubclass   = 0;
  31.       Ctl3d_Subclass     = 1;
  32.  
  33.  
  34. function Ctl3dGetVer : word;
  35. function Ctl3dSubclassDlg(HWindow : HWnd; GrBits : word) : bool;
  36. function Ctl3dSubclassCtl(HWindow : HWnd) : bool;
  37. function Ctl3dCtlColor(DC : HDC; Color : TColorRef) : HBrush; {ARCHAIC, use Ctl3dCtlColorEx}
  38. function Ctl3dEnabled : bool;
  39. function Ctl3dColorChange : bool;
  40. function Ctl3dRegister(Instance : THandle) : bool;
  41. function Ctl3dUnregister(Instance : THandle) : bool;
  42. function Ctl3dAutoSubclass(Instance : THandle) : bool;
  43. function Ctl3dCtlColorEx(Message, wParam : word; lParam : longint) : HBrush;
  44. function Ctl3dDlgFramePaint(HWindow : HWnd; Message, wParam : word; lParam : longint) : longint;
  45.  
  46.  
  47. implementation
  48.  
  49. function Ctl3dGetVer;       external 'Ctl3d' index 1;
  50. function Ctl3dSubclassDlg;  external 'Ctl3d' index 2;
  51. function Ctl3dSubclassCtl;  external 'Ctl3d' index 3;
  52. function Ctl3dCtlColor;     external 'Ctl3d' index 4;
  53. function Ctl3dEnabled;      external 'Ctl3d' index 5;
  54. function Ctl3dColorChange;  external 'Ctl3d' index 6;
  55. function Ctl3dRegister;     external 'Ctl3d' index 12;
  56. function Ctl3dUnregister;   external 'Ctl3d' index 13;
  57. function Ctl3dAutoSubclass; external 'Ctl3d' index 16;
  58. function Ctl3dCtlColorEx;   external 'Ctl3d' index 18;
  59. function Ctl3dDlgFramePaint;external 'Ctl3d' index 20;
  60.  
  61. end.
  62.